home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSPOLY.for < prev    next >
Text File  |  1991-04-13  |  281b  |  14 lines
  1.         SUBROUTINE GSPOLY(X,Y,N)
  2.         IMPLICIT NONE
  3.         REAL*4 X(2),Y(2)
  4.         INTEGER N,I
  5. C
  6. C       DIGLIB POLYGON SUPPORT
  7. C
  8.         CALL GSMOVE(X(N),Y(N))
  9.         DO 100 I = 1, N
  10.                 CALL GSDRAW(X(I),Y(I))
  11. 100             CONTINUE
  12.         RETURN
  13.         END
  14.